BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Hyperj-Hz/HyperMac™1.2.cpt/Datebook/background_16161.txt

Text File | 1987-11-27 | 5KB | 235 lines

-- background: 16161 from stack: in
-- bmap block id: 2920
-- flags: 0000
-- background id: 0
-- name: To Do
----- HyperTalk script -----
on newCard
  click at the loc of field "To Do"
  pass newCard
end newCard


-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=17 top=59 right=316 bottom=231
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 10 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=280 top=59 right=316 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=13 top=32 right=59 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: To Do


-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=469 top=310 right=338 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=262 top=310 right=337 bottom=299
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp


-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=211 top=310 right=338 bottom=248
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp


-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=323 top=28 right=61 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 17357 / 17357
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  Answer "You are in your To Do memo." with "OK"
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=276 top=29 right=64 bottom=315
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address
----- HyperTalk script -----
on mouseUp
  get the selection
  visual effect zoom close
  go to "Address"
  if it is not empty then find it
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=414 top=27 right=62 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 22855 / 22855
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yearly
----- HyperTalk script -----
on mouseUp
  goSixMonthly the date
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=366 top=27 right=62 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 21209 / 21209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily
----- HyperTalk script -----
on mouseUp
  goWeekly the seconds
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=462 top=25 right=60 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go "home"
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=205 top=31 right=56 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 30696 / 30696
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp